options mprint;
data pdata;
input a b;
cards;
2 5
;
%let indata=pdata;
%macro pyth;
  data ptm;
    set &indata;
    a2=a**2;
    b2=b**2;
    h=sqrt(sum(a2,b2));
    ;
  proc print data=ptm;
  var h;
  run;
%mend;
%pyth